
# Print Tables After Running

print("TABLES")
print("");print("#########################################");print("")

print("Table 2: Access")
print("");print("#########################################");print("")
print(xtable(acc.tbl))

print("");print("#########################################");print("")
print("Table 3: Political Engagement")
print(xtable(eng.tbl))

print("");print("#########################################");print("")
print("Table 4: Flattening Participation, test of H1	")
print(xtable(h1tabf(D$V6_SMS==1, Y=D$MARGINAL, pctile = 1- mean(D$SMS[D$V6_SMS==1]), YLAB = "Share Marginalized")))

print("");print("#########################################");print("")
print("Table 5: Price Effects	")
print(xtable(MainT, digits=3))
print(xtable(OUT2, digits=3), include.rownames=FALSE)

print("");print("#########################################");print("")
print(" Table 6: Price Induced Flattening 1: Test of H 3.1	")
print(xtable(OUT6))

print("");print("#########################################");print("")
print("Table 7: Price Induced Flattening 2: Test of H 3.2	")
print(xtable(OUT7))
print(h5.3tab(DS$MARGINAL[SEND],DS$PRICE[SEND], "marginal respondents"))

print("");print("#########################################");print("")
print("Table 8: Types of messages")
print(table(DS$PubPriv, DS$SMS))  
